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MODULE PATARI ( 


— EQL 1 
ef ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), | 
IDENT = 'V04-000') = 


BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 
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'o4¢ | 
FACILITY: PATCH | 
' ABSTRACT: | 
processes names, displays expressions, and writes into memory. | 
i ENVIRONMENT: STARLET, user mode, interrupts disabled. non-AST Level. | 

j 


i Version: v02-014 
i History: 
: uthor: 
| 
i MODIFIED BY: | 
v03-002 mMTROO15 e Rhodes 01-Nov-1982 


Modify routine PATSURITE “REN to change the attributes 
of a patched DZRO image Section to to be CRF. 


v03-001 mTROOT2 Mike Rhodes 16-Aug-1982 
Modify file names to remove duplicate file none useage 


' 
' 
! 
' 
' 
' 
' 
' 
J 
' 
Carol Peters, 26 Oct 1976: Version 00 | 
' 
' 
' 
' 
' 
' 
' 
! 
: Setuete code and require files. 
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d address 
Writes data into memory 
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Transforms a strin 
putes mapped ad 
putes unmappe 
Gets a stream o 


Com 
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! Defines Literals 


aatataitvnisxaactast> 
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PAAAAAAAAAAA 


I a ds 
@eaacacacacacac 


FORWARD ROUTINE 
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R2098 SWITCHES LIST (SOURCE); 
099 


1 
1 
1 EXTERNAL ROUTINE 
' PATS$fao_out; 
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! formats a Line and outputs to the terminal 
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PATSGL_NEWVBNMX, 
PATSGL_IMGBLKS 

PATSGL_ISELHD 


PAT$GB_MOD_PTR: REF VECTOR C, BYTE], 
YPE: BYTE, 


PAT$GB_LOCT 
PATSGL-LAST_LOC, 
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! Create and maps image sections 
! Matches a name with a symbol 


Max VBN in new image used for image sectio 
Number of blocks in new image 

Listhead for image section table 

Pointer to current modes 

Type of last location examined 

Current location 

Current value 

First semantic stack, holds tokens 

Second semantic stack, holds string pointe 


<OD 


Bae Oc Be Be Be Oe Be Se Se Be Se Se Se Se Se Se Se Se Fe Se Fe Se Ss Be Se Se FH Se Se Se Se Ge Se Ge Se Oe Se Se Se FH Se Se Se Se Se Se FV Se aese Se Sete te teases 


- 


So 


Vw 


ce ed a ee ce aed ce ee ee el a a a ee a a ct ee ee ce ee a cael ee cc ce ce el el ec ce ee ee ce ee ee ee ee ee eed 
OONO UE WN OOD NO NEW 0 OBNAU EWN 3 O ODNOAUES WIN —OOODNOUS WW ODOn 


RIP IPININDNAINININININININYDNINININPYININININININININIPYNININININININPOPUNPIPININIPPUNININPPOPUNINNPoMoPofnonoryd 


Dwele ea iealealealealvalalealeal eal ahah sh ah Ab sh sh sh eh sh sh sh aha ah al alealea lene. le le eee www | 


aso. 


ooo~n 
WIWIANIWIAIIORONIPONDY 2 2 tt tt 


BeBe Se Se Se Ge Be Se Se Be Se Se Ge Ge Ge Ge Ge Se Se Se Ge FH Se Se Ge Ge Ge Ge oe Ge Se Se Ge Ge Se FH Se Se Se SH Se Se See Se Se SH Se Se Oe Se BH Se SH Seases 


1 
1b-Se0-1984 00:28:40 yA 


GLOBAL ROUTINE PATSTRANS_NAME (SEMSP, LEXEME_STG_DESC) : NOVALUE = 


'e4¢ 
' Functional description: 


Transforms the simplest element of a PATCH expression 
into a binary value. Tokens expected are ALPHA_STR_TOKEN, 
DIGIT_STR_TOKEN, and the tokens for current location, 
last value displayed, next location, and previous Location. 
A name token is represented as a length count and a buffer 
address in the string gener loter. A number token is represented as 
a length count and a 32-bit or 64-bit precision number in 
the buffer address. 
' Calling sequence: 

CALLS #2, PATSTRANS_NAME 
Inputs: 

SEMSP - offset in parse stack that holds the 


current token. 
LEXEME_STG_DESC - string descriptor to number or name 


current mode, last value, current location, next location 
Outputs: 

none 
Implicit outputs: 

pushes a value onto the stack in the place of the token found 
Routine value: 

novalue 
Side effects: 

none 


| 
} 
| 
Implicit inputs: | 


LEXEME_STG_DESC : REF BLOCK C, BYTE); | 


PATSGL_SEMAN1 [.SEMSP] = (SELECTONE .PATSGL_SEMAN1 [.SEMSP) OF 
SET | 
(DIGIT_STR_TOKEN): 
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TRN PATSFIN 
EXTRN PATSGL 
-EXTRN PATS$GB 
~-EXTRN PATSGL 
~-EXTRN PATSGL 
-EXTRN PATSGL 


nun te 
nun it ti xo 


-TITLE PATARI 
-IDENT \V04-000\ 


Z 
Z 
Z 
Z 
Z 


Lo 
=x 
— 
<) 
4 
ua 
a 
‘ 
ua = 
a ~ 
oO vv 
= ” 
uw ws 
~ a 
Ln] a ‘ 
t+ 4 - o 
w a Ld 
-—- t ” 
P-4 a o 
— se [= ] w 
Oo = = ~ 
‘se a t w ~ = 
—~ovw ‘ @ =< =< 
-— < oO w w 
Red A 4 a = 
vu -— . z yw oe 
w <= ~ — bp | ~ 
a a -_ wo a 
uw ° = ~~ © « 
> 2 w 
YU : wn" w ' Ww 
w” ~~ > A yw” 
w YL VY =| ao —_+ &- [- 4 
a oO Oo <= = < e« < 
t aa) I > co > a a 
oo i a 8 Muu 2 | ' 
Load - - _ wAst = re 
” ” ” ” ar oran — 
‘ 4 <= 6 ee 2ax wos <= 
w 4) oo ed rt ad Lan] —Ow @M wz a 
= 4 Lam ‘ =z 4 4 a oO ae 
uw so ld = a w .J w uz — 
=< — & w © ~~ oOo pw 4 _ ” =) 
zw zzeA ~ ze oO2Zze o2 ™ + 4 
wee eh se Ont se ete et SS sce oz 
oOo a woda -vUdta woaca avr a w Ya MO 
ws OwoZw wast Twat awo 2urt +2 wes 
Ow -Oew BOw YD ew —-Oos tee ww ww 
q oO < ” oa 
a a J 4 2 
Oo =< ” <= <= 
_ <= a =x w . 
fs 4 vw a b 4 _~ 
w a <= 4 _ ” 
a J @ << oO (ve) 
ws = uw —) uw -_ 
*e 
a 
= 
vs) 


FLW ST FVII ST FVII TPIT TTF TWA TIAIUNIDA TOMI OU 


OPN TMNOPR- WOO UMTM OR. DHOOM TMNOR. OAO— CUM TIN OR. CO 
~P-P-P-P-F-F-P--B- DODMDWWDDDDDDDOAOAOAAOOOPOOCOOCOOCOCOCO 
MAWAWAWAIDAAIDAAIAAIUAA AEA LALLA IAAL OW ODODOOOOWO 
Peat ia lava ava iaviavlaviaviav lav atiaviatiaviaviaviaviaviaviaviaviaviaviaviatiaviatiaviatiaviatiatiatiatiat) 


SHUNT MANOR DROK UM TMNOR. DPO-— MUM TN OR. OHO CUM TNO 
DOOOOOOOOORRA-AAAAPP-R. WDWODDODDWDDDAAAAOAOO 


Se cee el ll ce ele ll el ell ee co oe el el el el el de lh el eh el 


ud 
a 
> 
_— 
' 
vw 
oO 
a) 


ISELHD 


, NE WVBNMX 
GL 


PAT 
» PATSGL_SEMAN2 


PATSCREMAP 
. PATS$G 

MOD PTR. PAT$GB 
Lo¢ 
AL 


LAST 
LAST 


SYM 
GBLKS 


SEMARY 
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ACCESS” CHECK 


RN PATS 
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| K 
PATAR l6-§ ep-1 VAX-11 Bliss-32 V4.0-742 
_woer0 0 1erep- 188s 99:8bi5) WS mGhaSteRsCPAton SRcIPATARI 832047" 
.PSECT _PATSCODE,NOWRT,2 
001¢ 00000 ENTRY PATSTRANS NAME, ase R2,R3,R4 
| 54 900000006 EF 9E 20909 MOVAB  PATS$GL_SEMAN 
33 00000006 EF 3 0000 MOVAB PATS$GL“LAST Nbc” “83 
04 AC DdO 00010 MOVL 
51 6442 00 0014 MOVL PATSGL SEMANICR2], R1 
00000048 &F 51 D1 00018 CMPL , We 
OA if} OO1F BNEQ ‘1 
50 08 AC D 900 1 MOVL § LEXEME_STG_DESC, RO 
50 04 BO DO 00025 MOVL  @4(RO)> ROW 
aC 11 90 9 BRB 8$ 
00000048 ~=s«&F 1 01 : 1$: CMPL 1, #75 
05 12 000 BNEQ  2$ 
50 63 D0 00034 MOVL §PATSGL_LAST_LOC, RO 
SA 11 00037 BRB 8h 
00000053 &F 51 1 900 9 2$: CMPL R1, #83 
11 if; 0040 BNEQ 3$ 
50 000000006 EF 00 00042 MOVL  PAT$GB_MOD_PTR, RO 
50 01 AO 9A 00049 MOVZBL 1(RO),~RO 
50 63 50 C3 0004D SUBL3 RO, PATSGL_LAST_LOC, RO 
40 11 00051 BRB 8$ 
3E 51 D1 00053 3$: CMPL RI, #62 
09 12 00056 BNEQ 4$ 
50 000000006 EF DO 00058 MOVL §PATSGIL_LAST_VAL, RO 
2 14 0005F BRB 8$ 
00000047 8F 51 D1 00061 4$: CMPL RI, #71 
1C 12 00068 BNEQ 6$ 
08 AC DD O006A PUSHL LEXEME_STG_DESC 
000000006 EF 01 FB 0006D CALLS #1, PATSFIND_SYM 
50 D3 00074 TSTL INDEX 
06 13 00076 BEQL $ 
50 08 AO DO 00078 MOVL § BCINDEX), RO 
15 11 0007C BRB 8$ 
00608088 8F DD OO07E 5$: PUSHL #7176328 
06 11 00084 BRB 7$ 
006D8142 8F DD 00086 6$: PUSHL W7 176514 
000000006 00 01 FB 0008C 7$: CALLS , LIBSSIGNA 
6442 50 DO 00093 8$: MOVL RO. PATS$GL oSEMANIER2] 
04 00097 RET 
; Routine Size: 152 bytes, Routine Base: _PATS$CODE + 0000 
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GLOBAL ROUTINE PATSMAP_ADDR (UNMAPPED_ADDR, MAPPED_ADDR_PTR, ISE_ADDR_PTR) : NOVALUE = 


4 Page 9 
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'e¢ 


i FUNCTIONAL DESCRIPTION: 


Determines the mapped address given an unmapped address in the image. 
The input parameter is the unmapped address and the output parameters 
are the mapped address and image section entry address. 


First, the image section table is searched to find out if the address | 
to be mapped is in the image. If not, then an error message is precucns | 
and the appropriate action is taken by the error routine (contro 
returns for next command or to (LI). Then the image section is mapped 
into memory if it is not already there. This may also produce an 

error _——? similar to the above. Then the mapped address is | 


POPIPOPOPOPONONOINONINININNONONINONONO NO NoPoNNonononononofnofnonend 
PRARAAAAAAAAAAAAAAAKAA AAA AAAS AAA AAA AS 

WNAANNIAIADIPIPONIPININNINID) 2 OOO ew Ss OO 
—SOODNAUE WN (O ODNOUS WN —“OVWOOVNOAUSWN—O”0 
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; 199 1 

; 200 1 

a. } 

; 08 1 i 

; 204 7% 

: 205 1! 

; 206 1! 

; 207 1! 

; 208 1 

; 209 1! 

: 210 1! 

; 1} ! 

: i 1 | 

: 8 ! computed and returned. 

: 18 : ; Then the mapped address is computed and returned. 

: 18 i CALLING SEQUENCE: 

; 20 PATSMAP_ADDR () 

: 32 | INPUTS: 

: 24 1 i UNMAPPED_ADDR = The unmapped address within the image 

: 25 | MAPPED _ADDR_PTR - Place to store the corresponding mapped address 

: $6 ' ISE_ADBR_PTR - Place to store the corresponding image section entry address 

; 28 3 i IMPLICIT INPUTS: 

: 50 7 : The image section table must have been set up. 

: 232 2642 1 | OUTPUTS: 

; 233 2643 1! 

; 234 2644 1! MAPPED _ADDR_PTR = The corresponding mapped address 

3 $3, sot? : } ISE_ADBR_PTR - The corresponding image section entry address 

: 237 2647 1 | IMPLICIT OUTPUTS: 

; 238 648 1! 

s ev 649 1! NONE 

; $79 2650 1! 

; rt see) : ROUTINE VALUE: 

; $08 $ee8 1 NONE 
-3 264 654 1! | 

; 245 655 1 ! SIDE EFFECTS: 

3 $48 656 1! ; ; . 

3 4 oot : : The image section is mapped into memory if it was not before. 

: 269 659 1 jee 

; 250 660 1 | 

s aor 661 BEGIN 

s 26 666 

; 66 MAP : 

3: 256 664 ISE_ADDR_PTR : REF VECTOR ! Address of corresponding image section tab | 

3 255 665 MAPPED_ADDR_PTR : REF VECTOR; i Mapped address returned | 

| 
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6 67 
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So? 675 
66 676 
67 677 
68 676 
69 679 
270 680 
2 
ie 
74 684 
75 685 
276 686 
e77 687 
278 2688 
279 2689 
280 2690 
281 2691 
see $098 
28 269 
See 2694 
85 2695 
286 2696 
287 2697 
288 698 
289 699 
290 2700 
291 2701 
292 HAY 
295 270 
294 2704 
295 2705 
$38 2706 
97 2707 
298 2708 
99 5708 
00 710 
01 711 
0 ne 
0 71 
04 714 
et 
309 $hi$ 


LOCAL 
CURRENT_ISE: REF BLOCKC,BYTE); 


'o4 
is section containing the unmapped v 


iSE_ADDR_PTRLOJ=0 
CURRENT_TSE=. PATSEL.. ISELHD; 


'e4¢ 


i contains the unmapped virtual address. 
ii iamge section is found. 


WHILE (.CURRENT_ISE NEQA 0) 


BEGIN 
IF (.UNMAPPED_ADDR GEQA .CURRENT 
( UNMAPPED— ADDR LEQA .CURRENT 


++ 
a Check that the address was within the 


iF cs ISE_ADDR_PTRCOJ EQLA 0) 


'e¢ 


ia a possible image exit. 
iF (,. CURRENT_ISECISESL_MAPVEND] EQL 0) 
PATSCREMAP(.ISE_ADDR_PTR(O]); 


ee 


: 
| 
: 


BEGIN 
ISE_ADDR_PTRCOJ=.CURRENT_ISE; 
EXITLOOP; 


END; 
CURRENT ASE. CURRENT SSECISER. MET ISES; 


SIGNAL (PATS_NSADDR,1,.UNMAPPED_ADDR) ; 


i Check that the image section is mapped. 
i be mapped, an error message is produced and this von de is aborted with 


V4.0-742 P 
:CPATCH LSRCIPATARI.B32;1> ( 


! Current image section entry during search | 


i Initialize for search through pe Rane ghee table to find the image 
rtual address. 


! Initialize to none 
! Set Listhead of image section table 


i Search through the image section table to find the image section which 


Stop when the table runs out or the 


171 SEETSESt I MGVENDD AND 
“ISECISESL-IMGVEND]) 


! Found starting image section 


! Set to next ISE in list 


image section. 


If not, map it. If it cannot 


! Is image section not mapped? 
! Yes, then map the image section 


i Now compute the corresponding mapped address. 
rer ADDR_PTR(LO] = .CURRENT_ISECISESL_MAPVST] + (.UNMAPPED_ADDR - 


.CURRENT_ISECISESL_IMGVST)); 


| 
| 


10 
4) 


! Starting address is not within image, repo 


| 
| 
| 
| 
| 
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: Routine Size: 


50 


90 bytes, 


04 
08 
oc 


000000006 


000000006 
04 


08 


Routine Base: 
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A2 
A2 
BC 
52 


00 


EF 
AC 
BC 


of ac be 
000000006 EF D 
ig 18 
04 AC D1 
OD iF 
04 aC D1 
4 1A 
dO 
05 11 
62 00 
c> 3) 
oc BS D5 
12 ie 
04 AC ODD 8 
01 9D 
006D812A 8F DD 
03 Fe 
10 A2 D 
OA 12 
oc BC DDO 
01 Fe 0 
04 A2 (30 
OC B240 9E 0 
04 0 
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-1984 VAX-11 Bliss-32 V4.0-742 Page 
eats ri 99: $5:52 DISKSVMSMASTER:CPATCH.SRCIPATARI .B32: 1° 
ENTRY PATSMAP ADDR Save R2 : 
ELRL 1SE AD PT ; 
HOVE pal CL. ISELHD, CURRENT _ISE : 
CHL UNMAPPED_ADDR, 4(CURRENT_ISE) : 
CMPL YNMAPPED_ ADDR, 8<CURRENT_ISE) : 
BGTRU 2$ : 
MOVL CURRENT_ISE, @1SE_ADDR_PTR : 
MOVL § (CURRENT_ISE), CURRENT_ISE ; 
BRB 1$ : 
TSTL § @ISE_ADDR_PTR : 
BNEQ  4$ : 
PUSHL  UNMAPPED_ADDR ; 
PUSHL #1 F 
PUSHL #7176490 : 
CALLS #3, LIBSSIGNAL ; 
TSTL  16(CURRENT_ISE) : 
BNEQ © 5$ : 
PUSHL @ISE_ADDR_PTR : 
CAL'S = #1 PATSCREnae : 
SUB: 3  4(CURRENT ISE), UNMAPPED_ADDR, RO : 
MOVAB ai2(c URRERT. ISE)CROJ, SMAPPED’ADDR_PTR : 


v 
> 


2 
1e-se 1984 00:28:40 VAX=11 Bliss-32 V4.0-742 P 1 
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GLOBAL ROUTINE PATSUNMAP_ADDR (UNMAP_ADDR_PTR, MAPPED_ADDR, ISE_ADDR_PTR) : NOVALUE = 


144 
' FUNCTIONAL DESCRIPTION: 


Determines the unmapped address given a mapped address in the image. 
The input parameter is the mapped address and the output parameters 
are the unmapped address and the image section table entry address. 


First, the image section table is searched to find out if the address 
to be unmapped is in the image. If not, then an error message is 
produced and the apporpriate action is taken by the error routine 

(control returns for next command or to CLI). 


Then the unmapped address is computed and returned. 
If everything was successful, the routine returns TRUE. 
CALLING SEQUENCE: 
PATSUNMAP_ADDR () 
INPUTS: 
UNMAP_ADDR_PTR ace to store the corresponding unmapped address 


- Pl 
MAPPED_ADDR - The mapped address } : 
ISE_ADBR_PTR - Place to store the corresponding image section entry address 
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$3 IMPLICIT INPUTS: 
$2 The image section table must have been set up. 
sc) OUTPUTS: 
343 UNMAP_ADDR_PTR = The corresponding unmapped address 
see ISE_ABDDR_PTR - The corresponding image section entry address 
346 IMPLICIT OUTPUTS: 
347 
348 none 
349 
350 ROUTINE VALUE: 
351 
326 none 
5 | 
$26 SIDE EFFECTS: 
336 none 
32 | 
58 — 
359 
$00 BEGIN 
61 77 
$06 77 MAP 2 | 
36 77 UNMAP_ADDR_PTR : REF VECTOR, ! Unmapped address to find | : 
We y ISE_ABDDR_PTR : REF VECTOR; ! Address of corresponding image section tab. 
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v04-000 1er8een 1 8Rs 99:83:36 DISKSUMGMASTERSCPATON SRCIPATARI.B3204°° (53 
; 366 775 LOCAL 
; of ore CURRENT_ISE: REF BLOCKC,BYTE); ! Current image section entry during search | 
; 369 2778 ++ 
; 370 site ! Initialize for search through image section table to find the image 
; 4! 5/80 section containing the mapped virtual address. 
; 378 5o8¢ ISE_ADDR_PTRC0IJ=0; ! Initialize to none 
3 ae sie? 2 CURRENT_TSE=.PATSGL_ISELHD; ! Set Listhead of image section table 
; 376 785 144 
; ae 786 ! Search through the image section table to find the image section which 
; 378 787 : contains the mapped virtual address. Stop when the table runs out or the 
; 29 gies ! image section is found. 
: 380 789 raed 
3 we 2790 WHILE (.CURRENT_ISE NEQA 0) 
5 wee 2791 2 D0 
> 383 oie 3 BEGIN 
; 384 2793 3 IF (.MAPPED_ADDR GEQA .CURRENT_ISECISESL_MAPVSTJ) AND 
3 3e5 2794 4 (.MAPPED_ADDR LEQA .CURRENT_ISECISESL_MAPVENDJ) 
> 386 2795 3 N 
: 387 2796 4 BEGIN 
; 388 2797 4&4 ISE_ADDR_PTRCOJ=.CURRENT_ISE; ! Found strarting image section 
: 389 2798 4 EXITLOOP; 
: 390 2799 3 END; ; 
, 3 2800 3 CURRENT_ISE=.CURRENT_ISECISESL_NXTISE); ' Set to next ISE in List 
; De 2801 2 END; 
3; ws 2802 2 
: 394 2803 2 !++ ae ; 
; WS 2804 2 ! Check that the address was within the image section. 
; 2m 2805 2 !-- | 
; 397 2806 3 IF (.1SE_ADDR_PTRCO) EQLA 0) 
; 398 2807 2 THEN 4 
: a 2808 2 SIGNAL (PATS_PATERR) ; ! Starting address is not within image, repo) 
; 400 2809 2 
; 401 2810 2 !++ 
3 rt seis 2 } Now compute the corresponding unmapped address. 
: 404 $818 3 UNMAP_ADDR_PTRCO] = .CURRENT_ISECISESL_IMGVST] + (.MAPPED_ADDR = .CURRENT_ISECISESL_MAPVST)); 
; 405 2814 RETURN 
; 406 2815 1 END; 
0004 00000 ENTRY PATSUNMAP_ADDR, Save R2 : 2718 
0c BC D4 00002 CLRL @ISE_ADDR_PTR ; site 
52 000000006 EF 0 0005 MOVL PATSGL_ISELHD, CURRENT_ISE ; 278 
19 13 QOO00C 1$: BEQL : sit 
Oc A2 08 aC 01 0000 CMPL MAPPED_ADDR, 12(CURRENT_ISE) ; 2793 
OD 1F 0001 BLSSU : 
10 A2 08 ac H BRt2 sa MAPPED_ADDR, 16(CURRENT_ISE) 3 2794 
oc «BC 33 0 0030 paye URRENT_ISE, @ISE_ADDR_PTR 3 3136 
52 62 00 003 28: MOVL (CURRENT_ISE), CURRENT_ISE ; 2800 
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GLOBAL ROUTINE PATSGET_VALUE (UNMAPPED_ADDR, NUM_OF BYTES, RETURN_ADDR_PTR) : NOVALUE = 


—Q 
re} 
® 


1e4 
FUNCTIONAL DESCRIPTION: 


This routine takes an unmapped address and a count of bytes and 
returns the values of the stream described. 


The returned storage area contains the desired values. 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 

The image section is mapped if it was not before. 


i 

i 

i 

i 

! First, the starting and ending addresses of the stream are mapped. 

: Then the number of bytes within the starting image section are moved 
: into the return storage area. If the stream was entirely within one 
! image section, the routine is finished ane returns. If the ending 

' image section is different from the starting image section, then the 
} unmapped address of the next byte to be found is mapped to produce a 
: new starting image section and mapped address. The process repeats 
: starting with a computation of the number of bytes within this image 
section. 

If the stream is not entirely within the image, then the appropriate 
error message is produced and this patch command is ended. 

| CALLING SEQUENCE: 

PATSGET_VALUE () 

i INPUTS: 

i UNMAPPED_ADDR = The unmapped address for the byte stream 

‘ NUM_OF BYTES - The number of bytes to be found in the stream 
RETORN_ADDR_PTR - Pointer to return storage area 

; IMPLICIT INPUTS: 

The image section table must have been set up. 

OUTPUTS: 

none 

! IMPLICIT OUTPUTS: 

i 

i 

} 

} 

} 

( 


BEGIN 


RETURN_ADDR_PTR : REF VECTORC,BYTE); 


! Address of return storage area for byte st) 
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PATAR 16-Sep-1984 7:28:40 VAX-11 Bliss-32 V4.0-742 Page 16. 
v04-000 1er8een18Re 99:83:30 DTRKSUMGMASTERSCPAT ON SACIPATARI.B32-4° @) 
465 
466 LOCAL | 
467 LENGTH, : oe length of byte stream to move 
468 PARTIAL_LENGTH, ! Number of bytes within yo thyy image sect 
469 VALUE BOFFER ! Holds address of return value buffer 
470 ST MAPPED _ADOR: REF VECTORC, BYTE), i Starting mapped address of remaining byte 
471 END_MAPPEB_ADOR ! Ending mapped address of byte stream 
47 START_ISE:~ REF BLOCK BYTE, ' Start ng image section for remaining byte 
of? END_ISE: REF BLOCKL,BYTE); ! Ending image section for remaining byte st 
l44¢ 
! Initialize number of bytes left to move. Find the starting and ending 


! mapped addresses and image sections. 

LENGTH=.NUM_OF BYTES; 

VALUE _BUFFER=.RETURN_ADDR_PTR; 

PATSMAP_ADDR(.UNMAPPED_ADDR, ST MAPPED ADDR, START_ISE); 
PATSMAP_ADDR(.UNMAPPED_ADDR+.NUM_OF _BYTES-1, END_MAPPED_ADDR, END_ISE); 


le¢ 
! This loop moves the bytes into the return storage area. It ig | takes 
! values from the starting image section. If the byte stream is in more than 
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! one of section, a partial length is moved in, a new starting image section 
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488 6 ! is found, and then the next “¥- al length is moved into the return buffer. 
ret i ! This is repeated until all the byte stream requested is moved. 
491 2899 
492 2900 BEGIN 
lee 
<o2 444 Find the number of bytes within the starting image section. 
497 2905 IF (.START_ISE EQLA .END_ISE) 
498 2906 H 
4 2907 PARTIAL_LENGTH=.LENGTH 


99 
500 2908 ELS 
PARTIAL_LENGTH=.START_ ISECISE At ot LE satiael conte 


$L_ 
- .NUM_OF_BYTES~+ .LE 
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144 
! Move in the partial byte stream found in the starting image section. 
! Also update the remaining length to be moved. 


SIRAR 


LENGTH=.LENGTH - .PARTIAL_LENGTH; 

VALUE _BUFFER=CHSMOVE(.PARTIAL_LENGTH, .ST_MAPPED_ADDR, .VALUE_BUFFER); 
le+ 

! Now check if all of the desired stream has been found. If not, find 
anew starting image section and repeat the process. 


iF (.LENGTH EQL 0) | 
THEN 
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| 
| 
} 
| 
REPEAT | 
| 
| 
| 
| 
| 
| 
| 
| 
} 


RETURN; | 
PATSMAP_ADDR(.UNMAPPED_ADDR+.NUM_OF_BYTES=.LENGTH, ST_MAPPED_ADDR, START_ISE); | 
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! End of loop to move byte stream 
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PATAR 18-5 Sep 4 VAX-11 Bliss-32 V 742 Page 17) 
youn 0 14-Sep 1382 99: g3:50 DISKSVMSMASTER: cvaien. SRCIPATARI.B32:1> (6) | 
| 

: 52e 2930 1 END; ! End of PATSGET_VALUE | : 

; 

03FC 00000 ENTRY PATSGET -VALUE, Save R2,R3,R4,R5,R6,R7,RB,RO ; 2816 ; 

59 FFSA CF 9 0002 MOVA ATSMAP-ADDR, R9 : | ; 

SE 10 C2 0000 SUBL SP : ; 

26 08 AC DO OOD0DA MOVL §-NUM_OF_BYTES + 2887 | : 

5 0C AC 00 0000 MOVL —- RETORN-ADDR_ brke NO ALUE _BUFFER + 2888 ; 

0 AE oF 001 PUSHAB START_T : 2889 5 

10 AE 9F 0001 PUSHAB ST_MAPPED_ADDR : ; 

04 a DD 00018 PUSHL UNMAPPED ADD : 3 

69 03 FB 0001B CALLS #3, PATSMAP_ADDR : ; 

SE DD OOOIE “ts Pp 3; 2890) 3 

08 AE 9F 000 9 PUSHAB END_MAPPED_A : ; 

57 04 AC 08 ac C1 000 ADDL3 NUM aos BYTES, OONMAPPED _ADDR, R7 ; : 

FF A? 9F 00029 PUSHAB =-1(R7)~ : | : 

69 03 FB 0002C 1$: CALLS #3, PATSMAP_ADDR : ; 

50 08 AE DO 000¢F MOVL START_ISE, RO + 2905 | ; 

6E 50 01 00033 CMPL RO, END_ISE : ; 

05 12 00036 BNEQ  2$ : ; 

58 56 00 00038 MOVL ENGTH, PARTIAL_LENGTH + 2907 : 

OF 11 00038 BRB : ; 

50 10 Ao OC AE C3 0003D 2s: SUBL3 ST_MAPPED_ADDR, 16(RO), RO + 2909 F 

50 08 AC C2 00043 SUBL2 NUM OF BYTES, R : 2910 ; 

58 01 A640 9E 00047 MOV 1(LENGTH) CROJ, PARTIAL_LENGTH : : 

56 58 ce 0004C 3$: SUBL2 PARTIAL_LENGTH, LENGTH” : 2916 : 

63 Oc BE 58 28 0004F MOVC3 PARTIAL~LENGTH. @ST_MAPPED_ADDR, - : 2917 : 

(VALUE _BUFFER) : ; 

56 05 00054 TSTL LENGTH + 2923 ; 

0c 13 00056 BEQL 5 : : 

08 AE 9F 00058 PUSHAB START + 2926 : 

10 AE 9F 00058 PUSHAB ST MAPPED ADDR : : 

7E 57 56 C3 0005E SUBL3 LENGTH, R7?, =(SP) : : 

C8 11 00062 BRB : : 

04 00064 4$ RET > 2930 : 

; Routine Size: 101 bytes, Routine Base: _PATSCODE + 0138 : 

| e 

| ° 

: 
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: H : g 1 ! GLOBAL ROUTINE PATSWRITE_MEM (DEST_UNMAP_ADDR, SRC_ADDRESS, LENGTH) = : 
: 526 935 | ts | : 
; 2 f g 2 : FUNCTIONAL DESCRIPTION: ; 
: 267 936 1 Writes a sequence of values (bytes) to memory in : 
; 530 937 1! the user program. The mapped destination address, image section 3 
: 23) 4 . } } entry, source, and number of bytes to write are alt passed as parameters. : 
: 339 940 1 | | 
> 534 2941 1! First, the image section table is searched to find out if the : 
$ 232 sore 3 addresses to be modified are in the image. If not, then an error 3 
; 6 945 1! message is produced and the appropriate action is taken by the : 
s Sor 2944 1! error routine (control returns for next command or to CLI). Then, $ 
3 OSB 2945 1! the image section is mapped into memory if it is not already there. 3 
: 4 5308 ! This may also produce an error message similar to the above. : 
: 541 2948 1! Once the starting address is mapped, the routine writes out as much ; 
; 206 2949 1! of the boguease Contained in that image section. If some of the. : 
; 54 2950 1! sequence is in another section, the routine sets up new parameters and 3 
: 346 951 1} calls itself recursively to write the remaining bytes. | : 
; 248 2958 ’ If everything was successful, the routine returns TRUE. | F 
3 48 955 { CALLING SEQUENCE: : 
; 350 2997 PATSWRITE_MEM () | ; 
: 23¢ 2959 1 | INPUTS: | ; 
; 3 2960 1! 3 
> 554 2961 1! DEST_UNMAP_ADDR = The address of the location to be changed ; 
s Soe 2962 1! START_ISE - The address of the image section descriptor for 3 
3; 556 2963 1! the first address to be written ; 
3; 557 2964 1! SRC_ADDRESS - The address of where the bytes are stored. ; 
: 238 $302 ; LENGTH - The number of bytes to be written. 3 
; 360 2967 { IMPLICIT INPUTS: ; 
; 362 2969 ! The image section table must be set up. : 
> 564 2971 1 | OUTPUTS: | ; 
; 565 2972 1! 3 
: 208 346, : : TRUE or an error message and unwind/exit. | F 
; 268 3375 : IMPLICIT OUTPUTS: : 
; 570 2977 1: none | F 
; 571 978 1 | | ; 
; 276 1 : ROUTINE VALUE: 3 
: 57% 981 1 | TRUE | : 
; 575 9 ¢ 1! 3 
; 276 983 1 | SIDE EFFECTS: | : 
; 378 985 ) The value is written to memory. | : 
; 580 987 1! If the image section that was patched is a demand zero image section, : 
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then its attributes are converted to be a copy on reference section. 


BEGIN 

MAP 
DEST_UNMAP_ADDR : REF Mahl Maite 
SRC_ADDRESS : REF VECTORC,BYTE); 

LOCAL 
START_ISE: REF Beeb BYTE ds: ! Image section table entry for starting add 
START_ISD: REF BLOCKC,BYTEI, ! Image section descriptor for starting addr 
ND_ ! Image section table entry for ending addre 
END "MAPPED ADDR, ! Mapped qnerng address to be altered 
END_UNMAP_ADDR ! Unmapped end ng address to be altered 
DEST_MAPPED_ADR: REF VECTORL,BYTE), i Unmapped start ng address to be altered 
PARTIAL_LENGTH; ! Length to write into starting image sectio 


lee 
! Initialize for search through image section table to find the image 
sections containing the starting and ending virtual addresses to be altered. 


PATSMAP_ADDR(.DEST_UNMAP_. DDR, DEST MAPPED_ADR, START_ISE); ! Find unmapped starting address 
END_UNMAP_ADDR=.DEST_UNMAP_ADDR + .CENGTH = 1; ! Get Last address to be written 


lee 
! Find the mapped ending address to be altered. This will map the image 
section if it is not already mapped. 


PATSMAP_ADDR(.END_UNMAP_ADDR, END_MAPPED_ADDR, END_ISE); ! Map the ending address 


le 
: Check that both addresses were within image sections. 


if (.START_ISE EQLA 0) 
THEN 


SIGNAL (PAT$_NSADDR,1,.DEST_UNMAP_ADDR) ; ! Starting address is not within image, repo 
(.END_ISE EQLA 0) 
SIGNAL (PAT$_NSADDR,1,.END_UNMAP_ADDR) ; ! Ending address is not within image, report 


'ee 
' Now check if all of addresses to be altered are within the same image | 
} section. If not, then set the lenath to be altered in this image section. 
if (START _ISE NEQA .END_ISE) 
PARTIAL_LENGTH=.START_ISECISESL_MAPVEND] = .DEST_MAPPED_ADR + 1 


PARTIAL_LENGTH=.LENGTH; 


ELSE 

lee 

Move the new values into this image section. 

CHSMOVE (. PARTIAL_LENGTH, SRC_ADDRESSCO],DEST_MAPPED_ADRLOJ); 


'ee 


<v 
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Check if the image section was demand zero pages. If so, change the image 
oe Bey descriptor to be a process private type. The virtual block number is 


| 
set to F 
identification is set to zer nome 3 gece ion descriptor size is 
| 
| 


zero and nee be cSengee ypen She new image is written out. The image 
incremented to include the edditionel VBN ; 
START_ISD=.START_ISE + 1 ESC_SIZE; ! Get address of image section descriptor ; 
TF START. igDC1SD$¥-DZROS i Check {f was dmzro- ¥ 
THEN ; 
BEGIN : 
START_ISDCISDS$SV_DZROJ=FALSE; ! Set no longer demand zero 3 

START_ iz. ISD$V_CRFJ =TR UE i nee copy on reference H 
START-ISDCISDS$L-VBNJ=.PATSGL_NEWVBNMX + 1; ecord unknown VBN ; 

42: START_ 3D ISD$W~ SIZEJ= «START_ISDCISD$W_ side) + A _LONGWORD; Re Increment image section descriptor size : 
i when . 


!' These are oer for pet te hen I1SD's contain IDENT fields. 
! This is currently an un-imp 


emented format of ISD. 
i START_ISDCISD$L_IDENT] Set ident to zero 


pee oe leolololololelelololeloloelolololo! 
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! START_ISDCISDSW_ $1 ZEJ=. stant 3 ag SIZE] + A_QUA pworD:; ! "hecreuent image section descriptor size 
PATSGC_NEWVBNMX”= .PA NEQVB .START_ISDCISD$W_PAGCNT 12; ! Increment max VBN in new image file 
pares. IMGBLKS = .PATSGL LTMGBLKS : * START ISD DCISD$SW_PAGCNTJ; |! Increment for number of new blocks in 


lee 
i Check if this was a global section. If so, warn that only the local 
iy version is being patched. 


IF_.START_ISDCISD$V_GBLJ 
THEN 


SIGNAL ((PAT$_GBLWARN AND NOT STSSM en INFO, 
1,START_ISDCISD$T_GBLNAM)) ! Only warn of possible problem 


aon 
ao 
wr 


ee 
i Check if all the values were changed. If not, then recursively call 
; _this routine with new parameters. 


if. -LENGTH EQL .PARTIAL_LENGTH) 
RETURN TRUE 

ELSE BrcIn | 
PATSWRITE_MEM(DEST wo ADORC .PARTIAL_LENGTH), 
SRU_ADDRESS( PARTIAL LENGTH, | 

| 

| 

| 

| 

| 


el CERCTHe. PARTIAL TLENGTH) ; 
—— TRUE; 
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07FC 00000 -ENTRY PATSVAITE AER. Save R2,R3,R4,R5,R6,R7,R8,- g avs 
5A 000000006 EF 9E 00002 MOVAB PATSGL_NEWVBNMX, R10 


K 
PATAR 16-$ 
v04-000 14°S 
9 F F 9E 00009 
35 000000006 09 43 2 
E Ce 0001 
5E pp 0018 
08 AE 9F QOOIA 
o HH BMH 
52 04 AC AC 
ge AE SF Ess 
10 AE 9F 0002C 
, Fe Bie 
8 6E 09 00 4 
OE 12 00037 
04 C 0D 00039 
4 DD 0003C 
006D812A F 0D it E 
68 03 FB 00044 
08 AE D5 BOCA 
OD 12 QO04A 
52 DD 0004C 
01 DD 0004E 
006D812A 8F DD 00050 
68 03 FB 00056 
08 AE 5? Di 00059 
oC 3 0005D 
50 10 A? 04 AE C3 O005F 
56 01 AO 9Y9E 00065 
04 11 00069 
56 OC AC 00 00068 
04 BE 08 BC 56 28 0006F 
50 14 A? 9E 00075 
22 08 Ad 02 4 00079 
08 A0 04 8A 0007E 
08 A0 02 88 00082 
oc Ad 6A 01 C1 00086 
60 04 AO Baoge 
51 02 Ad 3C 0008 
6A 51 0 0009 
51 02 Ad 3C 0009 
00000000G_ EF 51 ¢€O 00099 
OE 08 A0 44 OOAO 
14 AO OF Oba 
01 OD A? 
00608073 8F DD 000A9 
68 03 FB Boas 
56 oc AC O01 Bee 
12 iH 0 88 
7E oc AC 56 § it 
08 BC46 9F 000BD 
04 BC46 9F 000C1 
0105 9 3 FR 0c5 
50 1 p OCA 
4 000CD 


; Routine Size: 206 bytes, Routine Base: _PATSCODE + 019D 


1$: 


2$: 


7$: 


VAX-11 Bliss-32 V4.0-742 


DISKSVMSMASTER: CPATCH.SRCIJPATARI. 832; 79 


P_ADDR, R9 
GRAL, R8 


S 

“MAPPED_A 

ce ERD UNMAP ADDR) 
PATSMAP~ADDR 

TART Ise, ap? 

E 


ST LUNMAP_ADDR 
76490 
jeres Ga, 


L 
_IS 
UNMAP_ADDR 
6490 
LIBSSIGNAL 
END_ISE 


T_MAPPED_ADR, 16(R7), RO 
OY, PARTTAL _CENGTH 


GTH, PARTIAL_LENGTH 
IAL_LENGTH, a@SRC ADDRESS, - 
KPPED_ADR 


START_ISD 
START_ISD), 5$ 
TART~1SD) 


TART ISD) 
$GL rsd 12(START_ISD) 


Dman- 


oa SE VS VS VMmer 
wW za>Y ~*5?: 


vat Anemers 


ATSGL NEWBNMX 


> 
+4 
Fa 
a 
= 
— 
m 2) 
i 
x 
L74) 


oS oS Sees oe mwness—_ 
oww 
fr — 


bee (ee 
—-—uwrwm am 
oe SS! 
ww 


TART 


START_1SD5 


07 
LIBSSIGNAL 
NGTH, PARTIAL_LENGTH 


PARTIAL_LENGTH, LENGTH <(SP) 
@SRC_ADDRESSCPARTIAL_LENG 

apesT UNMAP D ADDREPARTIAL STENGTH) 
43, PATSURITE ITE_MEM 


= 


Pete Se Se Se Se Se Ge Se Se Fe Ge Ge Se Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Fe Se Ge Ge Fe Fe Se Fe Fe Be Ge Be Fe Be Fe Se Be Foe Se Fe Fe Ge Se Be Ge Fe Be Be Ge Be Be 


° 5) 


UG 
oo 
—— 
~ne 


ViONOVIN— ron 


Ww 
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o 


UWIAA OW 
oooocecne coco 
OU 


<v 


VAX-11 Bliss-32 V4.0-742 P 
DI SKSVMEMASTERSCPATCH SRCIPATARI .B3200o" (95 


A 
I 


1Ssto-19g4 09:28:40 


eee 


mM 2 
¥04-000 oreo aee 98: ee oe WAS UMGMASTERSCPAT ON CACIPATARI .B3204%° (BS 


: Elapsed Time: 01:33.8 
3 Lines/CPU Min: 


| 
4 
; 688 303% 1 END | 
; 689 095 0 ELUDOM 
| 
~EXTRN LIBSSIGNAL 
ii PSECT SUMMARY | 
; Name Bytes Attributes 
: _PATSCODE 619 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON. NOPIC.ALIGN(2) 
» =» SBS » 0 NOVEC,NOWRT, * NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
; Library Statistics 
: eoccccece Symbols ----- ooo Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 13 0 1000 00:01.8 | 
| 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) “VARIANT: 1/LIS=LIS$:PATARI/OBJ=OBJ$:PATARI MSRC$:PATARI/UPDATE=(ENH$:PATARI) 
; Size: 619 code + 0 data bytes 
; Run Time: 


6370 
; Lexemes/CPU-Min: 39797 
: ponecy Used: 201 pages 
; Compila 


tion Complete 


030 AH-BT13A-SE T CORPORATION 
VAX/VMS V4.0 | | | -PROPRIETARY 


